home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
301-325
/
disk_308
/
vlt
/
rexx
/
gensend.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-05-06
|
1KB
|
49 lines
/* this is a test for a window which pulls stuff */
parse upper arg sendfile "(" bitcheck
parse var sendfile sendfile " AS " receivefile
sendfile = strip(sendfile)
bitcheck = strip(bitcheck)
receivefile = strip(receivefile)
if ~showlist('p',KERMITPORT) then mp = OpenPort(KERMITPORT)
address VLT
SEND "*R"
call delay 50
SEND "*X7"
call delay 50
SEND "*R"
call delay 50
test = "kermit *R"
test = '"'test'"'
SEND test
t = waitpkt(KERMITPORT)
p = getpkt(KERMITPORT)
command = getarg(p)
t= reply(p,0)
call delay 60
rstring = "receive "||receivefile||"*R"
rstring = '"'rstring'"'
SEND rstring
call delay 100
KS sendfile
call delay 40
if bitcheck = BITNET then do
SEND "'"||"CMS sendfile temp note a (note) *R"||"'"
call delay 150
end
SEND "QUIT*R"
SEND "*R"
SEND "*N"
return 0